home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / chkobjex.arc / CHKOBJEX.CLP next >
Text File  |  1991-12-04  |  5KB  |  111 lines
  1.              PGM        PARM(&FILLIB &OBJLIB)
  2.              DCL        VAR(&FILLIB) TYPE(*CHAR) LEN(20)
  3.              DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
  4.              DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
  5.              DCL        VAR(&OBJLIB) TYPE(*CHAR) LEN(10)
  6.              DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)
  7.              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(5)
  8.              DCLF       FILE(DSPFDH.QTEMP)
  9.              DLTF       FILE(DSPFDH.QTEMP)
  10.              MONMSG     MSGID(CPF0000)
  11.              CHGVAR     VAR(&FILE) VALUE(%SST(&FILLIB 1 10))
  12.              CHGVAR     VAR(&LIB) VALUE(%SST(&FILLIB 11 10))
  13. /**/
  14.              CHGVAR     VAR(&MSG) VALUE(&FILE *BCAT '.' *CAT &LIB +
  15.                           *BCAT 'being checked for object existence')
  16.              PRINT      PRTDTA(&MSG)
  17.              CHGVAR     VAR(&MSG) VALUE(&OBJLIB *BCAT  +
  18.                            'IS THE OBJECT SEARCH LIBRARY')
  19.              PRINT      PRTDTA(&MSG)
  20. /**/
  21.              IF         COND(&OBJLIB *NE *LIBL) THEN(DO)
  22.              CHKOBJ     OBJ(&OBJLIB.QSYS) OBJTYPE(*LIB)
  23.              MONMSG     MSGID(CPF9810 CPF9820 CPF9830) EXEC(DO)
  24.              CHGVAR     VAR(&MSG) VALUE(&OBJLIB *BCAT 'not found or +
  25.                           unable to allocate or you are not +
  26.                           authorized to obj search lib')
  27.              PRINT      PRTDTA(&MSG)
  28.              GOTO       CMDLBL(PGMEND)
  29.              ENDDO
  30.              ENDDO
  31. /**/
  32.              IF         COND(&LIB *NE *LIBL) THEN(DO)
  33.              CHKOBJ     OBJ(&LIB.QSYS) OBJTYPE(*LIB)
  34.              MONMSG     MSGID(CPF9810 CPF9820 CPF9830) EXEC(DO)
  35.              CHGVAR     VAR(&MSG) VALUE(&OBJLIB *BCAT 'not found or +
  36.                           unable to allocate or you are not +
  37.                           authorized to SRC search lib')
  38.              PRINT      PRTDTA(&MSG)
  39.              GOTO       CMDLBL(PGMEND)
  40.              ENDDO
  41.              ENDDO
  42. /**/
  43.              CHKOBJ     OBJ(&FILE.&LIB) OBJTYPE(*FILE)
  44.              MONMSG     MSGID(CPF9801) EXEC(DO)
  45.              CHGVAR     VAR(&MSG) VALUE('SOURCE FILE not found')
  46.              PRINT      PRTDTA(&MSG)
  47.              GOTO       CMDLBL(PGMEND)
  48.              ENDDO
  49. /**/
  50.              DSPFD      FILE(&FILE.&LIB) TYPE(*MBRLIST) OUTPUT(*NONE) +
  51.                           OUTFILE(DSPFDH.QTEMP)
  52.              OPNDBF     FILE(DSPFDH.QTEMP) OPTION(*INP) SEQONLY(*YES)
  53. /**/
  54.  READ:       RCVF       DEV(*FILE) RCDFMT(QWHFDML)
  55.              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
  56. /**/
  57.              IF         COND((&MLSEU *EQ RPG) *OR (&MLSEU *EQ CBL) +
  58.                           *OR (&MLSEU *EQ CLP) *OR (&MLSEU *EQ PLI) +
  59.                           *OR (&MLSEU *EQ BAS) *OR (&MLSEU *EQ RPT)) +
  60.                           THEN(CHGVAR VAR(&TYPE) VALUE(*PGM))
  61.              ELSE
  62.              IF         COND((&MLSEU *EQ QRY) *OR (&MLSEU *EQ DFU)) +
  63.                           THEN(CHGVAR VAR(&TYPE) VALUE(*PGM))
  64.              ELSE
  65.              IF         COND((&MLSEU *EQ DSP) *OR (&MLSEU *EQ PF) *OR +
  66.                           (&MLSEU *EQ DSPF) *OR (&MLSEU *EQ LF) *OR +
  67.                           (&MLSEU *EQ PRTF)) THEN(CHGVAR VAR(&TYPE) +
  68.                           VALUE(*FILE))
  69.              ELSE
  70.              IF         COND((&MLSEU *EQ BSCF) *OR (&MLSEU *EQ BSC) +
  71.                           *OR (&MLSEU *EQ MXDF) *OR (&MLSEU *EQ +
  72.                           CMNF)) THEN(CHGVAR VAR(&TYPE) VALUE(*FILE))
  73.              ELSE
  74.              IF         COND(&MLSEU *EQ CMD) THEN(CHGVAR VAR(&TYPE) +
  75.                           VALUE(*CMD))
  76.              ELSE
  77.              IF         COND(&MLSEU *EQ TXT) THEN(DO)
  78.              CHGVAR     VAR(&MSG) VALUE(&MLNAME *BCAT 'is a text +
  79.                           member and cannot be checked')
  80.              PRINT      PRTDTA(&MSG)
  81.              GOTO       CMDLBL(READ)
  82.              ENDDO
  83. /**/
  84. CHKOBJ:      CHKOBJ     OBJ(&MLNAME.&OBJLIB) OBJTYPE(&TYPE)
  85.              MONMSG     MSGID(CPF9801) EXEC(DO)
  86.              CHGVAR     VAR(&MSG) VALUE(&MLNAME *BCAT &MLSEU *BCAT +
  87.                           'not found or COMPILED WITHOUT USING SOURCE +
  88.                           MBR  NAME')
  89.              PRINT      PRTDTA(&MSG)
  90.              ENDDO
  91. /**/
  92.              MONMSG     MSGID(CPF9802) EXEC(DO)
  93.              CHGVAR     VAR(&MSG) VALUE(&MLNAME *BCAT &MLSEU *BCAT +
  94.                           'not AUTHORIZed to the object')
  95.              PRINT      PRTDTA(&MSG)
  96.              ENDDO
  97. /**/
  98.              IF         COND((&MLSEU *EQ DFU) *AND (&TYPE *EQ *PGM)) +
  99.                           THEN(DO)
  100.              CHGVAR     VAR(&TYPE) VALUE(*FILE)
  101.              GOTO       CMDLBL(CHKOBJ)
  102.              ENDDO
  103. /**/
  104.              GOTO       CMDLBL(READ)
  105.  END:        CLOF       OPNID(DSPFDH)
  106. /**/
  107. PGMEND:      PRINT      PRTDTA('End of job') CLOSE(*YES)
  108.              DLTF       FILE(DSPFDH.QTEMP)
  109.              MONMSG     MSGID(CPF0000)
  110.              ENDPGM
  111.